PC Home 48/Fun Clicp Art 5000.iso/r/mbm8/00692_MTR fact.ls

Text File | 1996-06-10 | 5.2 KB | 200 lines

factory FBestiole
method mnew NNom, CCode, SStatut, NNumPar, CCodeZoom, CCodePhyl, EEpoque
  instance Nom, Code, Statut, NumPar, CodeZoom, CodePhyl, Epoque
  set Nom to NNom
  set Code to CCode
  set Statut to SStatut
  set NumPar to NNumPar
  set CodeZoom to CCodeZoom
  set CodePhyl to CCodePhyl
  set Epoque to EEpoque

method Le_Nom
  return Nom

method Le_Code
  return Code

method Le_Statut
  return Statut

method Le_NumPar
  return NumPar

method Le_CodeZoom
  return CodeZoom

method Le_CodePhyl
  return CodePhyl

method Le_Epoque
  return Epoque

factory FGereCheckBox
method appuie NumSpr
  curseur(2)
  set numact to the castNum of sprite NumSpr
  set ancnom to the name of cast numact
  set prefixe to word 2 of ancnom
  set nomact to word 1 of ancnom
  if char 1 of prefixe = "1" then
    put " 0" after nomact
  else
    put " 1" after nomact
  end if
  set the castNum of sprite NumSpr to the number of cast nomact
  updateStage()

factory FBarreChrono
method fleche mode, dat, coul
  if (coul = 0) or (coul = 1) then
    set debut to coul
    set fin to coul
  else
    set debut to 0
    set fin to 1
  end if
  repeat with i = debut to fin
    set monSpr to 46 + i
    puppetSprite(monSpr, 1)
    if mode = 0 then
      set the visible of sprite monSpr to 0
      next repeat
    end if
    set locx to 543 - (dat * 7.20000000000000018)
    set numact to 131 + i
    set the locH of sprite monSpr to locx
    set the visible of sprite monSpr to 1
  end repeat

method survol NumSpr, NumActTxt
  global gTraduit
  set numact to the castNum of sprite NumSpr
  set dat to word 1 of the name of cast numact
  set eta to word 2 of the name of cast numact
  if eta = "1" then
    set mess to getAt(gTraduit, 15)
    set monCur to 7
  else
    set mess to getAt(gTraduit, 16)
    set monCur to 7
  end if
  if dat > 1 then
    set mess to mess && dat && getAt(gTraduit, 17)
  else
    if dat = 1 then
      set mess to mess && getAt(gTraduit, 18)
    end if
    if dat = 0.20000000000000001 then
      set mess to mess && "200" && getAt(gTraduit, 19)
    end if
    if dat = 0.035 then
      set mess to mess && "35" && getAt(gTraduit, 19)
    end if
  end if
  me(fleche, 1, dat, 1)
  set the text of cast NumActTxt to " "
  set the textStyle of cast NumActTxt to "plain"
  set the textStyle of cast NumActTxt to "bold"
  set the text of cast NumActTxt to mess
  curseur(monCur)

factory FFScope
method mnew act, Spr, lePath
  instance exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, CDPath, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, exitFrame, SprAct, exitFrame, CastAct
  set CastAct to act
  set SprAct to Spr
  puppetSprite(SprAct, 1)
  set the castNum of sprite SprAct to CastAct
  set CDPath to lePath
  set the visible of sprite SprAct to 0
  me(Box, 1, 1, 1, 1)

method Restore
  puppetSprite(SprAct, 1)
  set the castNum of sprite SprAct to CastAct

method ToStage OnOff
  set the directToStage of cast CastAct to OnOff

method preLoad laTaille, leVasY
  if (1024 * laTaille) > the freeBlock then
    set the preloadRam to the freeBlock
    put "LIMITE MEMOIRE : " && laTaille && "Ko demand┼╜s," && the preloadRam / 1024 && "Ko accord┼╜s"
  else
    set the preloadRam to integer(1024 * laTaille)
    put "Preload : " && the preloadRam / 1024 && "Ko allou┼╜s"
  end if
  if laTaille < 1 then
    set the preLoad of cast CastAct to 0
  else
    set the preLoad of cast CastAct to 1
  end if
  if leVasY = 1 then
    preLoadCast(CastAct)
  end if

method SetTime laPos
  set the movieTime of sprite SprAct to laPos

method GetTime
  return the movieTime of sprite SprAct

method Box x1, y1, x2, y2
  spriteBox(SprAct, x1, y1, x2, y2)

method visible leMode, leToTheFrame
  set the visible of sprite SprAct to leMode
  if leToTheFrame then
    go(the frame)
  end if

method SetCadence laCadcence
  set the movieRate of sprite SprAct to laCadcence
  me(VolAbs)

method GetCadence
  return the movieRate of sprite SprAct

method unLoad
  me(SetCadence, 0)
  me(visible, 0)
  me(Box, 1, 1, 1, 1)
  me(preLoad, 0.10000000000000001, 0)
  unLoadCast(CastAct)

method VolRel lePrCent
  set monVol to the volume of sprite SprAct
  set monVol to monVol + (lePrCent * monVol / 100)
  set the volume of sprite SprAct to monVol

method VolAbs
  global gVolVid
  if the sound of cast CastAct = 1 then
    set the volume of sprite SprAct to gVolVid
  end if

method Duree
  return the duration of cast CastAct

factory FGereBouton
method appuie leNumSpr
  curseur(2)
  if leNumSpr > 0 then
    set nomact to word 1 of the name of cast the castNum of sprite leNumSpr
    put " 0" after nomact
    set the castNum of sprite leNumSpr to the number of cast nomact
    updateStage()
  end if

method relache leNumSpr
  if leNumSpr > 0 then
    set nomact to word 1 of the name of cast the castNum of sprite leNumSpr
    put " 1" after nomact
    set the castNum of sprite leNumSpr to the number of cast nomact
    updateStage()
  end if

method habille NumSpr, nomact
  set the castNum of sprite NumSpr to the number of cast nomact